home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 September / PCWorld_2006-09_cd.bin / v cisle / flyakite / FlyakiteOSX v3.5.exe / $PLUGINSDIR / Restore Point.vbs < prev    next >
Text File  |  2006-02-25  |  734b  |  20 lines
  1. 'Unattended System Restore Point
  2. 'sysrestorepoint.vbs
  3. '⌐ Doug Knox - rev 02/06/2002
  4. 'This code may be freely distributed/modified
  5. 'Downloaded from www.dougknox.com 
  6. 'Extracted from original code by Bill James - www.billsway.com
  7.  
  8. Set sr = getobject("winmgmts:\\.\root\default:Systemrestore")
  9.  
  10. msg = "New Restore Point Successfully Created" & vbCR & vbCR
  11. msg = msg & "It is listed as: FlyakiteOSX v3.5" & vbCR
  12. msg = msg & "Created on: " & Date & " at " & Time
  13.  
  14. If (sr.createrestorepoint("FlyakiteOSX v3.5", 0, 100)) = 0 Then
  15.     t = MsgBox(msg, vbSystemModal, "Create Restore Point")
  16. Else
  17.     t = MsgBox("Restore Point Creation Failed!", vbExclamation + vbSystemModal, "Create Restore Point")
  18. End If
  19.  
  20. Set sr = Nothing